home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / party / a95-abys.lha / Install High Anxiety < prev    next >
Text File  |  1980-01-03  |  3KB  |  125 lines
  1. ; *************************************************************************
  2. ; *****************  HIGH ANXIETY INSTALLATION SCRIPT  ********************
  3. ; *************************************************************************
  4. ; © 1995 by Bartman/Abyss
  5. ; *************************************************************************
  6.  
  7. (set demo_space_required 1620)
  8.  
  9. (set #pattern "H#?")
  10.  
  11. (set qube_space_required 15)
  12. (set space_required (+ demo_space_required qube_space_required))
  13.  
  14. (set @default-dest "")
  15.  
  16.  
  17. (set #hello-msg
  18.   (cat
  19.     "Welcome to\n\nHigh Anxiety\n"
  20.      "© 1995 by Abyss\n\n"
  21.      "released at Assembly'95\n\n"
  22.      "a high quality demo designed for Amigas capable of AA-chip quality graphics processors (A1200/A4000)\n\n"
  23.      "             Code: Dexter, Moon     \n"
  24.      "          Visuals: Toxic            \n"
  25.      "Audio, Raytracing: Pink             \n"
  26.      " Installer, Icons: Bartman          "
  27.   )
  28. )
  29.  
  30. (set #bad-kick-msg "High Anxiety requires AGA-chipset and Kickstart 3.0 or better!")
  31.  
  32. ; Check for KickV39 or better
  33.  
  34. (if (< (/ (getversion) 65536) 39)
  35.         (
  36.         (abort #bad-kick-msg)
  37.         )
  38. )
  39.  
  40. ; Beginn
  41.  
  42. (message #hello-msg)
  43.  
  44. ;
  45.  
  46. (set destdir
  47.   (askdir
  48.     (prompt ("Please select the directory where you want a \"High Anxiety\" drawer to be created.\n %ld KB free space on drive required." space_required))
  49.     (help @askdir-help)
  50.     (default ":")
  51.     (disk)
  52.   )
  53. )
  54.  
  55. (set options
  56.   (askoptions
  57.     (prompt "Select the features of High Anxiety to install")
  58.     (help @askoptions-help)
  59.     (choices
  60.       ("High Anxiety Demo (%ld KB)" demo_space_required)
  61.       ("Abyss WinQube (%ld KB)" qube_space_required)
  62.     )
  63.     (default -1)
  64.   )
  65. )
  66.  
  67. (set destdir (tackon destdir "High Anxiety"))
  68.  
  69. (makedir destdir
  70.   (prompt "A directory called \"High Anxiety\" will be created.")
  71.   (help @makedir-help)
  72.   (infos)
  73. )
  74.  
  75. (askdisk
  76.   (prompt "\nPlease insert \"High Anxiety Disk 1\".")
  77.   (help @askdisk-help)
  78.   (dest "High Anxiety Disk 1")
  79. )
  80.  
  81. (if (= (BITAND options 2) 2)
  82.   (copyfiles
  83.     (prompt "Select the files to copy from High Anxiety Disk 1.")
  84.     (help @copyfiles-help)
  85.     (source "High Anxiety Disk 1:")
  86.     (dest destdir)
  87.     (pattern "WinQube#?")
  88.     (infos)
  89.   )
  90. )
  91.  
  92. (if (= (BITAND options 1) 1)
  93.   (
  94.     (complete 5)
  95.     
  96.     (copyfiles
  97.       (prompt "Select the files to copy from High Anxiety Disk 1.")
  98.       (help @copyfiles-help)
  99.       (source "High Anxiety Disk 1:")
  100.       (dest destdir)
  101.       (pattern #pattern)
  102.       (infos)
  103.     )
  104.     
  105.     (complete 50)
  106.     
  107.     (askdisk
  108.       (prompt "\nPlease insert \"High Anxiety Disk 2\".")
  109.       (help @askdisk-help)
  110.       (dest "High Anxiety Disk 2")
  111.     )
  112.     
  113.     (copyfiles
  114.       (prompt "Select the files to copy from High Anxiety Disk 2.")
  115.       (help @copyfiles-help)
  116.       (source "High Anxiety Disk 2:")
  117.       (dest destdir)
  118.       (pattern #pattern)
  119.       (infos)
  120.     )
  121.   )
  122. )    
  123.  
  124. (complete 100)
  125.